-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 7
-- first background id: 3165
-- card count: 59
-- first card id: 34131
-- list block id: 6464
-- print block id: 3495
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 145472 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xFF00FF00FF00FF00
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x5555555555555555
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide message box
end openStack

function ClickLine
return(trunc(((scroll of the target) + (item two of the clickloc) - (item two of the rect of the target)) div the textheight of the target) + one)
end ClickLine

on remakeIndex
  answer "Remaking the index takes a long time" with "continue" or"cancel"
  if it is "cancel" then exit remakeIndex
  go to first card of background "Index"
  -- delete the buttons from first card

  put the number of last button of this card into lastbut
  choose button tool
  repeat with but = lastbut down to 1
    --put 50 + ((but - 1) mod 4) * 120 into x
    --put 110 + ((but - 1) div 4) * 120 into y
    -- click at x,y
    click at location of card button but
    doMenu "Cut Button"
  end repeat
  -- delete the pictures from the first card
  choose select tool
  drag from 1,11 to 490,310
  doMenu "Cut Picture"
  choose browse tool

  put the number of last card of this background into lastcard

  if the number of this card <> lastcard
  then
  put the number of second card of this background into twocard
  -- delete all but first card of index
  go to next card
  repeat with card = twocard to lastcard
    doMenu "Delete Card"
  end repeat
end if

-- for each label card add the card to the index
go to first card of background "Label"
put the number of first card of this background into firstcard
put the number of last card of this background into lastcard
repeat with label = firstcard to lastcard
  send "mouseUp" to background button "insert"
  go to next card
end repeat

end remakeIndex


on clearLabels
  -- for each label card clear description field and contents field
  go to first card of background "Label"
  put the number of first card of this background into firstcard
  put the number of last card of this background into lastcard
  repeat with label = firstcard to lastcard
    clearContents
    put "" into bkgnd field "Description"
    go to next card
  end repeat
end clearLabels

on ReleaseMe
  remakeIndex
  clearLabels
  doMenu "Compact Stack"
end ReleaseMe

on clearContents
  if the number of card fields is not 0 then
    put the number of first card field of this card into firstfield
    put the number of last card field of this card into lastfield
    repeat with fieldnum = firstfield to lastfield
      put word 3 of the name of card field fieldnum into fieldname
      if fieldname is quote & "Contents" & quote then
        put "" into card field "Contents"
        exit repeat
      end if
    end repeat
  end if
end clearContents